<%
Dim indhold
Dim tabel
ConnString= "driver= {MySQL ODBC 3.51 Driver};server=127.0.0.1;uid=erslev;pwd=madsen;database= erslev_dk_-_erslev;"
'ConnString = "driver={MySQL};UID=erslevdk;PWD=45644;Database=erslevdkdb"
valg = Request.Querystring("udvalg")
Sub begyndher
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnString
SQL2 = "SELECT * FROM NYT ORDER BY DATO DESC, ID DESC"
Set objRS = Conn.Execute (sql2)
If valg = "" Then
dag = Day(objRS("DATUM")) &"/" &Month(objRS("DATUM")) &"-"&Year(objRS("DATUM"))
indhold = dag & " " & objRS("OVERSKRIFT") & " " & objRS("INDHOLD")
End If
While Not objRS.EOF
dag = Day(objRS("DATUM")) &"/" &Month(objRS("DATUM")) &"-"&Year(objRS("DATUM"))
kortdag = Day(objRS("DATUM")) &"/" &Month(objRS("DATUM"))
If CInt(valg) = CInt(objRS("ID")) Then
farve = "#b02200"
indhold = dag & " " & objRS("OVERSKRIFT") & "
" & objRS("INDHOLD")
Else
farve = "#180227"
End If
tabel = tabel &"
